home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / balloo1 / bugsfixe.txt < prev    next >
Encoding:
Text File  |  1999-09-05  |  1.4 KB  |  51 lines
  1. If you want Balloon Tip with standard behavior made this modifications:
  2. All modifications are made in the BalloonMod.bas
  3. In the subrutine DisplayBalloon():
  4. a) Erase this lines
  5.     'Hide Mouse Pointer
  6.     mCount = ShowCursor(False)
  7.     Do While mCount >= 0
  8.       mCount = ShowCursor(False)
  9.     Loop
  10. b) Replace this line:
  11.     'Display and Draw
  12.     .Show 
  13.    with:
  14.     'Display and Draw
  15.     .Show vbModeless, HookedForm
  16.  
  17. c) Add this line after the DrawLabel rutine:
  18.     HookedForm.SetFocus
  19.  
  20. In the Subrutine HideTip():
  21.  
  22. d) Erase this lines:
  23.     'Show mouse pointer
  24.     mCount = ShowCursor(True)
  25.     Do While mCount < 0
  26.       mCount = ShowCursor(True)
  27.     Loop
  28.  
  29. In the WndProc function:
  30. e)  Place this lines:
  31.       Set BalloonCtrl = ctrl
  32.       With ctrl
  33.          TipCtrl.Text = .ToolTipText
  34.          .ToolTipText = ""
  35.          'Turn on the timer
  36.          BalloonForm.Controls(0).Enabled = True
  37.       End With
  38.     Inside this If statement:
  39.      If Len(ctrl.ToolTipText) > 0 Then
  40.                    Set BalloonCtrl = ctrl
  41.                    With ctrl
  42.                      TipCtrl.Text = .ToolTipText
  43.                      .ToolTipText = ""
  44.                      'Turn on the timer
  45.                      BalloonForm.Controls(0).Enabled = True
  46.                    End With
  47.          End If
  48.  
  49. The result is a standard look alike tool tip. The only disadvantage is that
  50. you will see a little form fliker.
  51.